Packages
library(plotly)
Warning: package ‘plotly’ was built under R version 4.0.5
Attaching package: ‘plotly’
The following object is masked from ‘package:ggplot2’:
last_plot
The following object is masked from ‘package:stats’:
filter
The following object is masked from ‘package:graphics’:
layout
Import
number_of_deaths_by_risk_factor <- number_of_deaths_by_risk_factor %>% filter(grepl('U', Code))
Error in number_of_deaths_by_risk_factor %>% filter(grepl("U", Code)) :
could not find function "%>%"
Clean
df2<- number_of_deaths_by_risk_factor %>%
filter(Code %in% c("USA", "AUS")) %>%
filter(Year >= 2000L & Year <=
2017L)
Viz
p <- ggplot(df2) +
aes(x = Smoking, fill = Code) +
geom_histogram(bins = 50L) +
scale_fill_hue(direction = 1) +
theme_minimal()
Interactive
ggplotly(p)
LS0tCnRpdGxlOiAiUiBOb3RlYm9vayIKb3V0cHV0OiBodG1sX25vdGVib29rCi0tLQoKUGFja2FnZXMKYGBge3J9CmxpYnJhcnkocmVhZHIpCmxpYnJhcnkoZ2dwbG90MikKbGlicmFyeShkcGx5cikKbGlicmFyeShwbG90bHkpCmBgYAoKSW1wb3J0CmBgYHtyfQpudW1iZXJfb2ZfZGVhdGhzX2J5X3Jpc2tfZmFjdG9yIDwtIHJlYWRfY3N2KCJudW1iZXItb2YtZGVhdGhzLWJ5LXJpc2stZmFjdG9yLmNzdiIpClZpZXcobnVtYmVyX29mX2RlYXRoc19ieV9yaXNrX2ZhY3RvcikKCm51bWJlcl9vZl9kZWF0aHNfYnlfcmlza19mYWN0b3IgPC0gbnVtYmVyX29mX2RlYXRoc19ieV9yaXNrX2ZhY3RvciAlPiUgZmlsdGVyKGdyZXBsKCdVJywgQ29kZSkpCmxpYnJhcnkoZHBseXIpCmxpYnJhcnkoZ2dwbG90MikKYGBgCgpDbGVhbgpgYGB7cn0KZGYyPC0gbnVtYmVyX29mX2RlYXRoc19ieV9yaXNrX2ZhY3RvciAlPiUKIGZpbHRlcihDb2RlICVpbiUgYygiVVNBIiwgIkFVUyIpKSAlPiUKIGZpbHRlcihZZWFyID49IDIwMDBMICYgWWVhciA8PSAKIDIwMTdMKQpgYGAKClZpegpgYGB7cn0KcCA8LSBnZ3Bsb3QoZGYyKSArCiBhZXMoeCA9IFNtb2tpbmcsIGZpbGwgPSBDb2RlKSArCiBnZW9tX2hpc3RvZ3JhbShiaW5zID0gNTBMKSArCiBzY2FsZV9maWxsX2h1ZShkaXJlY3Rpb24gPSAxKSArCiB0aGVtZV9taW5pbWFsKCkKYGBgCgpJbnRlcmFjdGl2ZQpgYGB7cn0KZ2dwbG90bHkocCkKYGBgCgoK